home *** CD-ROM | disk | FTP | other *** search
/ Pornodelic / Pornodelic - Disc 2.iso / pc / data / mount.dir / 00028_òg.ls < prev    next >
Encoding:
Text File  |  1998-03-05  |  1.3 KB  |  40 lines
  1. on wakuchk mx, my
  2.   set x1 to the locH of sprite 1 - (320 - 42)
  3.   set y1 to the locV of sprite 1 - (240 - 9)
  4.   set x2 to x1 + 71
  5.   set y2 to y1 + 53
  6.   set temp to 0
  7.   case the memberNum of sprite 8 of
  8.     (the number of member "Mount1"), (the number of member "Mount2"):
  9.       repeat with xx = 0 to 4
  10.         repeat with yy = 0 to 4
  11.           if ((x1 + ((71 + 51) * xx)) <= mx) and ((x2 + ((71 + 51) * xx)) >= mx) and ((y1 + ((53 + 30) * yy)) <= my) and ((y2 + ((53 + 30) * yy)) >= my) then
  12.             set temp to xx + 1 + (yy * 5)
  13.             set tmpx to xx
  14.             set tmpy to yy
  15.             exit repeat
  16.           end if
  17.         end repeat
  18.       end repeat
  19.     (the number of member "Mount3"):
  20.       repeat with xx = 0 to 4
  21.         repeat with yy = 0 to 3
  22.           if ((x1 + ((71 + 51) * xx)) <= mx) and ((x2 + ((71 + 51) * xx)) >= mx) and ((y1 + ((53 + 30) * yy)) <= my) and ((y2 + ((53 + 30) * yy)) >= my) then
  23.             set temp to xx + 1 + (yy * 5)
  24.             set tmpx to xx
  25.             set tmpy to yy
  26.             exit repeat
  27.           end if
  28.         end repeat
  29.       end repeat
  30.   end case
  31.   if temp = 0 then
  32.     return 0
  33.     exit
  34.   end if
  35.   set the locH of sprite 9 to ((71 + 51) * tmpx) + 42
  36.   set the locV of sprite 9 to ((53 + 30) * tmpy) + 9
  37.   updateStage()
  38.   return temp
  39. end
  40.